Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A201A.CMD < prev next >

Wrap

Text File | 1987-01-02 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 201 │" locate 0,8 message s8 locate 0,17 message "│ Newark, NJ │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- Gelb's ................. 694-7425 V- Cloneworld ............. 542-1429 ║" message "║ B- Nutley ................. 667-2504 W- React Fido ............. 628-7287 ║" message "║ C- Wizard's ............... 396-4361 X- Micro-Fone ............. 494-3649 ║" message "║ D- The Police Station ..... 963-3115 Y- ACGNJ #2 ............... 753-9758 ║" message "║ E- Hidden Arsenal ......... 750-6174 Z- Ramtec Micro Board ..... 332-1842 ║" message "║ F- Shelter ................ 783-7458 0- Visions BBS ............ 538-0413 ║" message "║ G- Wizard's Tower ......... 288-9076 1- Proteus TBBS ........... 381-0936 ║" message "║ H- God's RBBS ............. 277-6522 2- Steve's BBS ............ 886-8041 ║" message "║ I- Garden State SW Exch ... 227-9481 3- BBBBS .................. 494-8666 ║" message "║ J- Seaboard ............... 694-3348 4- The BOSS BBS ........... 568-7293 ║" message "║ K- Software Society ....... 729-7410 5- SSBBS .................. 396-8516 ║" message "║ L- North Jersey PCUG ...... 743-2570 6- The Milky Way RBBS ..... 580-0486 ║" message "║ M- T.I. Pro ............... 478-0784 7- ........................ ...-.... ║" message "║ N- Pleasure ............... 330-0613 8- ........................ ...-.... ║" message "║ O- Cork Board ............. 943-2226 9- ........................ ...-.... ║" message "║ P- PC Lab ................. 595-5357 @- ........................ ...-.... ║" message "║ Q- Metro CPU Studio ....... 757-3387 #- ........................ ...-.... ║" message "║ R- The Xtra ............... 284-2198 $- ........................ ...-.... ║" message "║ S- Cyclotron .............. 687-7720 %- ........................ ...-.... ║" message "║ T- MicroSellar BBS ........ 239-1346 &- ........................ ...-.... ║" message "║ U- Data Base .............. 943-5419 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "694-7425" assign s6 "Gelb's Data Base " gosub dial else endif find s0 "B" if found assign s8 "667-2504" assign s6 "Nutley " gosub dial else endif find s0 "C" if found assign s8 "396-4361" assign s6 "Wizard's " gosub dial else endif find s0 "D" if found assign s8 "963-3115" assign s6 "Police Station " gosub dial else endif find s0 "E" if found assign s8 "750-6174" assign s6 "Hidden Arsenal II " gosub dial else endif find s0 "F" if found assign s8 "783-7458" assign s6 "Shelter " gosub dial else endif find s0 "G" if found assign s8 "288-9076" assign s6 "Wizard's Tower " gosub dial else endif find s0 "H" if found assign s8 "277-6522" assign s6 "God's RBBS " gosub dial else endif find s0 "I" if found assign s8 "227-9481" assign s6 "Garden State Software Exch " gosub dial else endif find s0 "J" if found assign s8 "694-3348" assign s6 "Seaboard " gosub dial else endif find s0 "K" if found assign s8 "729-7410" assign s6 "Software Society " gosub dial else endif find s0 "L" if found assign s8 "743-2570" assign s6 "North Jersey PC Users Group" gosub dial else endif find s0 "M" if found assign s8 "478-0784" assign s6 "T.I. Pro Board " gosub dial else endif find s0 "N" if found assign s8 "330-0613" assign s6 "Pleasure " gosub dial else endif find s0 "O" if found assign s8 "943-2226" assign s6 "Cork Board " gosub dial else endif find s0 "P" if found assign s8 "595-5357" assign s6 "PC Lab " gosub dial else endif find s0 "Q" if found assign s8 "757-3387" assign s6 "Metro CPU Studio " gosub dial else endif find s0 "R" if found assign s8 "284-2198" assign s6 "The Xtra " gosub dial else endif find s0 "S" if found assign s8 "687-7720" assign s6 "Cyclotron " gosub dial else endif find s0 "T" if found assign s8 "239-1346" assign s6 "MicroSellar " gosub dial else endif find s0 "U" if found assign s8 "943-5419" assign s6 "Data Base " gosub dial else endif find s0 "V" if found assign s8 "542-1429" assign s6 "Cloneworld " gosub dial else endif find s0 "W" if found assign s8 "628-7287" assign s6 "React Fido " gosub dial else endif find s0 "X" if found assign s8 "494-3649" assign s6 "Micro-Fone " gosub dial else endif find s0 "Y" if found assign s8 "753-9758" assign s6 "ACGNJ #2 " gosub dial else endif find s0 "Z" if found assign s8 "332-1842" assign s6 "Ramtec Micro Board " gosub dial else endif find s0 "0" if found assign s8 "538-0413" assign s6 "Visions BBS " gosub dial else endif find s0 "1" if found assign s8 "381-0936" assign s6 "Proteus BBS " gosub dial else endif find s0 "2" if found assign s8 "886-8041" assign s6 "Steve's BBS " gosub dial else endif find s0 "3" if found assign s8 "494-8666" assign s6 "BBBBS " gosub dial else endif find s0 "4" if found assign s8 "568-7293" assign s6 "The Boss BBS " gosub dial else endif find s0 "5" if found assign s8 "396-8516" assign s6 "SSBBS " gosub dial else endif find s0 "6" if found assign s8 "580-0486" assign s6 "The Milky Way RBBS " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "7" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "8" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "9" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "@" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " - " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit